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EVENT QUE 


MINUTES 


_ , The Washinton Apple Pi meeting of 
July 26, 1980 was called to order at 9:35 
a»m. by the Vice President. It was 
announced that a new meeting format would 
be inaugurated at this meeting, which 
would consist of a short business meeting 
followed by several concurrent group 
meetings. It Is hoped that this new 
structure will better serve the 
wide-ranging needs of our membership. Any 
comments or suggestions would be greatly 
appreciated by the officers. 


Dave Morganstein reminded the members that 
original contributors to the library would 
be given a free disk of their choice. The 
President announced that the club would 
have a table at a computer fair being held 
in New York City by the Big Apple computer 
?lub on August '6 and that all members are 
invited to attend, Dave Efron renewed his 
request for reviewers of Apple related 
articles. 


The meeting was then adjourned into 
smaller sections. 

Dana J. Schwartz, Secretary 


Washington Apple Pi meets on the 4th Satur- 
day of each month at 9:30 AM at George 
Washington University School of Engineer- 
ing, 23rd and H Streets, N. W. Call the 
club telephone for exact meeting location. 


NOVAPPLE meets on the 2nd Wednesday 
at 7:30PM at Computers Plus in Fran- 
conia, and on the 4th Thursday at 7:30 
PM at Computer land of Tysons Corner. 


CLASSIFIEDS 

For Sale: 32K Kemory, $95* or l6K, 
#50. Wanted » used floppy disk drive 
and controller. Ira Cotton, (H) 468- 
2266 , ( 0 ) 951 - 2200 . 


GROUP PURCHASE POWER- -DOS 3. 3 
A membership benefit 

Those members who now have a Disk II 
will certainly want to upgrade their sys- 
tems with DOS 3. 3. Normally selling for 
$60 plus tax, your club will offer it for 
a substantial discount. Your deposit 
check for $20 is required before an order 
can be placed* For further informa- 
tion, call the club number, (301) 468-2305. 


NEWSIG NOTES 
by Sara LaVilla 

The New Users' Group (NEWSIG) held its first 
meeting following Apple Pi's July 26 general 
meeting. A1 Weiner has agreed to lead this 
group of Apple newcomers through the basics. 

This first meeting consisted of an exchange 
of questions and answers. NEWSIG extends 
its thanks to David Morganstein and John 
Moon who lent their expertise to the group 
and supplied answers to our questions. 

Since these questions and answers may be 
of interest to new users who were unable to 
attend the meeting, they are reproduced 
below: 

Q. What are SIGS? 

A. Subgroups of Washington Apple Pi which 
have special interests (games, machine 
language, Pascal, new users). 

« 

Q. What does the POP command do? 

A. When you have several nested subroutines 
the Apple stores the return addresses in 
a stack of these addresses, the latest be- 
ing on top. When a return command is en- 
countered, the topmost address in the 
stack is removed and execution proceeds 
from that line number. In Integer Basic 
POP may substitute for RETURN in a sub- 
routine. POP, however, wipes out the top 
line number being stored, picks up the 
next and removes it with execution pro- 
ceeding fron that line number. 


Classified ads accepted from members 50 words or less at no 
charge provided the material is obviously non-commercial. 
Submit your classified at least 30 days in advance attention 
CLASSIFIED ADS, PO Box 34511, Washington, DC 20034. 




Q* Is it advisable to order from discount 
houses through the mail? 

A. As in most of life's endeavors, you get 
what you pay for. If you cannot perform 
your own service, or if you will need to 
rely on a local dealer' s assistance with 
hard or software, then you probably 
should purchase locally from a "full 
service" dealer. If, on the other hand, 
you are confident of your repair and 
software abilities, or are willing to 
pay for such services in the event of 
disaster, then you may wish to try one 
of the more reputable mail order houses. 
Ask several experienced club members 
to recommend mail order houses. Never 
buy software sight unseen unless recom- 
mended by a friend or reputable computer 
publication. 

Q. What is IAC? 

A. International Apple Core 

Q. What are the advantages of DOS 3. 3? 

A. DOS 3. 3 permits approximately 20% 
more data storage per diskette then 
than 3.2*1. A disadvantage is that 
current canned disks won't work on 3. 3 
and there is some question about PASCAL 
compatibility. 

Q. How do you perform TEXT and HOME in 
Integer Basic? 

A. CALL-1123 for TEXT, and CALL-936 for 
HOME. 


NEWSIG will try to develop a glossary of terms 
for new users. NEWSIG asked that Apple Pi 
officers and other members speaking at meet- 
ings identify themselves. 


■Recommended Purchases: 

Apple Monitor Peeled @$15.00 
CRAE @$20.00 

CaU A. P. P. L. E 
Newsletter 



ASMSIG - Assembly Language Special Interest Group 


The ASHSIG met for the first time following 
Apple-Pi's regular July meeting* Twelve curious 
members showed up - each with his oum purposes * 
objectives* and attitudes* Backgrounds varied 
from some who have had decades of assembly 
programming experience (clearly not all on the 
APPLE)* to those of us who are Just beginning, to 
learn the difference between JMP and JSR* And 
interests were as widely ranged* from a hook into 
DOS (and other ROM code)* to computer typesetting* 
high speed communications* , higher precision 
floating point arithmetic and trigonometry* and 
even a full blown image processing system! ! 

It would seem that regardless of our 
backgrounds* irrespective of our specific 
interests* we each have similar concerns - and I 
offer my own interpretation of those concerns* 

♦First of all - If things can be done in 
a higher level language - do it! 

♦But all things cannot be done in an 
interpreted BASIC or PASCAL* - especially when 
time is a crucial factor* Thus there are occasions 
when ASH is a necessity* 

♦Necessity or not* Assembly language 
should be seen as Just another tool in the 
programmer's kit bag* A tool* neither mysterious 
nor arcane* to be used when applicable* 

•Philosophy aside* we are committed to 
spend as little time as possible reinventing the 
'wheel' * Our purpose as a group is to share 
insights* build macros* and establish a sharable 
library of utilities* 

♦Standards- We have a limited agreement 
to use TED-II+ (or any other version of TED) found 
on the APPLE-PI disk #8* That way we can most 
easily share our stupendous and astonishing 
results! 

♦As we struggle with TED* we are agreed 
on a search for a more capable assembler - one 
which can handle macros and relocatable code* 

♦More urgently we must soon establish 
APPLE-PI standards concerning 
-initializtion 

-page usage (especially page zero!) 
-documentation 
-interrupt protection 
-stack usage 
-???? 

After an extremely informal survey of the 
group* here's an informal expectation of potential 
articles which could appear in future newsletters! 

♦Peeking at DOS - A Continuing Mystery 

*6502 ASCII to Baudot 

♦FASTRES 

• More TED Documentation 

♦Floating Point Routines 

♦Fast Fourier Transorms - Simple as 

Apple-Pi 

! PASCAL Probes & Latches 
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Ue 

meeting 


will meet again after the next regular 
Newcomers welcome!! 


) 

SAVE TAPE 

Q 

by Dana J. Schwartz 

Have you ever wanted to back-up your irreplaceable disks, but didn't have 
enough extra blank disks to hold them all? Was saving each program indi- 
vidually on tape too time consuming? What if you could save an entire 
disk in less than ten minutes on tape? Interested? 

The following three routines will' save all the occupied sectors of any disk 
on your cassette tape, using all available RAM for buffers. Since the sect- 
ors are saved in several large groups of buffers (maximum of 1 32 at a 
time on a 48K machine), the entire process will take ten minutes or less, 
depending on how full the disk is. The data may be restored at a later 
time using a routine which is also placed on tape. 

The user creates an EXEC file using "MAKE SAVE TAPE EXEC". 

This file places the restore routine "RESTP* at the start of the tape, and 
then starts the save process (routine "SVTP 1 ). The user must have the 
tape ready to go when "SAVE TAPE' is EXEC'd and will be prompted 
when to insert the disk to be saved. At several points the user will be 
told to stop (or pause) the tape while sectors are read from the disk. 


To restore the data, a blank initialized disk is booted, HIMEM is set to 
4096, and the first file (the restore routine) is read from tape using the 
LOAD command. The tape is then stopped (or paused) and this routine is 
executed (using RUN). The user will again be prompted when to start and 
stop the tape as the disk is restored. Note that this process must be 
done on a system with at least as much RAM as the system on which the 
tape was made, since the buffer size on tape is fixed. 


10 D$= ,,M 5 REM CTRL-D 
20 PRINT D$i"QPEN SAVE TAPE” 

30 PRINT D$$ " WRITE SAVE TAPE" 

40 PRINT "LOAD RESTP" 

50 PRINT "MON I" 

60 PRINT "REM START TAPE IMMEDIATEL 
Y" 

70 PRINT "SAVE" 

80 PRINT "REM STOP TAPE" 

90 PRINT "N0M0N I" 

100 PRINT "HIMEM 54096" 

120 PRINT "RUN SVTP" 

130 PRINT " CLOSE SAVE TAPE" 

140 END ' 

iooo rem *********************** 

1010 REM * MAKE SAVE TAPE EXEC * 

1020 REM * BY DANA J. SCHWARTZ * 

1030 REM * 6/1/80 * 

1040 REM *********************** 


>LIST 

10 DIM C$( 5 ) 

20 IF PEEK ( 76 )=0 AND PEEK (77 
. >=16 THEN 40 

30 PRINT "TYPE 'EXEC SAVE TAPE'" 

5 END 

40 DIM HEX$< 75 >5 GOTO 60 

50 HEX$( LEN< HEX* )+l >=" N E88AG" 

5 FOR 1=1 TO LEW HEX* >5 POKE 
511+1, ASC(HEX*< I) >5 NEXT 15 
POKE 72,05 RETURN 

60 HEX*®" 10005 A9 10 A0 12 20 D9 03 
B0 01 60 AD IF 10 8D 11 10" 

5 G0SUB 505 CALL -144 

/0 H£X*=" 10105 60 00 01 60 01 00 11 
00 24 10 00 09 00 00 01 00" 

5 G0SUB 505 CALL -144 

80 HEX*=" 10205 00 60 01 00 00 01 EF 
D8"t G0SUB 505 CALL -144 

90 TOP® PEEK < 978 >-7 
100 INPUT "INSERT DISK TO BE SAVED A 
ND HIT RETURN"-, C* 


) 


110 TR=175SE=05BUF=17 5 G0SUB 2000 
5 REM GET VT0C 

120 POKE 4224, TOP-185 REM MAX FOR 
RESTP 

130 PRINT "SAVING VT0C" 5 INPUT 
"START TAPE AND HIT RETURN" 

,C* 

140 POKE 60,0 5 POKE 61,165 POKE 
o* ,2555 POKE 63,175 CALL -307 
5 REM SAVE RWTS/VT0C 
150 PRINT "STOP TAPE" 

160 BUF=18 

170 FOR TR=3 TO 34 

180 Bl= PEEK ( 4352+56+4*TR >5B2= 

PEEK ( 4352+57+4*TR > 

190 BM=Bl*32+B2/8 
200 FOR SE=12 TO 0 STEP -1 
210 IF BM>4095 THEN 2605 REM NOT 
USED 

220 GOSUB 20005 REM READ SECTOR 
230 BUF=BUF+1 5 IF BUF<T0P THEN 
260 

240 GOSUB 10005 REM WRITE TAPE 
250 BUF=18 

260 BM=(BM*2> MOD 8192 
270 NEXT SE 
280 NEXT TR 

290 IF BUF>18 THEN GOSUB 10005 REM 
PUT OUT LAST GROUP 
300 PRINT "SAVE TAPE COMPLETE" 

310 END 

1000 PRINT "WRITING "iBUF-18?" BUFFER 
S" 

1010 INPUT "START TAPE AND HIT RETURN 
",C* 

1020 POKE 60,05 POKE 61,185 POKE 
62,2555 POKE 63,BUF-15 CALL 
-307 

1030 PRINT "STOP TAPE" 

1040 RETURN 

2000 POKE 4118, TR5 POKE 4119, SE5 
POKE 4123, BUF5 POKE 4113,0 


1ST 

10 

20 

30 

40 


50 


60 

70 

80 

90 
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110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

1000 

1010 

1020 


2010 PRINT "TR=" f TR5 " SE="?SE 
2020 CALL 4096 

2030 IF PEEK (4113)=0 THEN RETURN 

2040 PRINT "ERROR", PEEK (4113) 
2050 IF TR=17 AND SE=0 THEN END 
5 REM ERROR ON VTOC 
2060 RETURN 

10000 REM ********************** 
10010 REM * SAVE TAPE CREATE * 
10020 REM * BY DANA J SCHWARTZ *. 
10030 REM * 6/1/80 * 

10040 REM ********************** 


1030 


1040 

1050 

1060 

2000 


2010 

2020 

2030 


2040 


) 

DIM C*< 5 ),NR( 3 ) 

IF PEEK < 76 )=0 AND PEEK <77 
>=16 THEN 40 

PRINT "HIMEM 5 4096 AND RE-RUN" 

5 END 

PRINT "READING VTOC" 5 INPUT 
"START TAPE AND HIT RETURN" 

,C* 

POKE 60,05 POKE 61,165 POKE 
62,2555 POKE 63,175 CALL -259 
5 REM READ RUTS/VTQC 
PRINT "STOP TAPE" 

PRINT "RESTORING VOLUME PEEK 
( 4352+6 > 

MAX® PEEK ( 4224 )5TQP=MAX+18 

GOSUB 30005RD a 05 REM GET INPUT 
SIZES 

POKE 4126,2 

PRINT "INSERT NEW DISK" 

GOSUB 10005 REM READ TAPE 
BUF=18 

FOR TR=3 TO 34 

Bl= PEEK (4352+56+4*TR)5B2® 

PEEK < 4352+57+4*TR > 
BM=Bl*32+B2/8 
FOR SE=12 TO 0 STEP 1 
IF BM>4095 THEN 2405 REM NOT 
SAVED 

GOSUB 20005 REM WRITE SECTOR 
BUF=BUF+1 

IF BUF<TQP THEN 240 
GOSUB 10005 REM READ TAPE 
BUF=18 

BM=(BM*2> MOD 8192 
NEXT SE 
NEXT TR 

PRINT "DISK RESTORED" 

END 

IF NR< RD )=0 THEN RETURN 

PRINT "READING " ?NR( RD >?" BUFFER 

S" 

INPUT "START TAPE AND HIT RETURN 
",C* 

POKE 60,05 POKE 61,185 POKE 
62,2555 POKE 63,NR( RD >+17 5 CALL 
-259 

PRINT "STOP TAPE" 

RD=RD+1 

RETURN 

POKE 4118, TR5 POKE 4119, SE5 
POKE 4123, BUF5 POKE 4113,0 

PRINT "TR="5TR*" SE="*SE 
CALL 4096 

IF PEEK <4113)00 THEN PRINT 
"ERROR", PEEK (4113) 

RETURN 
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3000 NS=0 

3010 FOR TR=3 TO 34 
3020 Bl= PEEK < 4352+56+4*TR >JB2= 
PEEK < 4352+57+4STR ) 

3030 BM=Bl*32+B2/8 

3040 FOR SE=0 TO 12 

3050 IF BM<4096 THEN NS=NS+1 

3060 BM=(BM*2> MOD 8192 

3070 NEXT SE 

3080 NEXT TR 

3090 NR( 0 >=0 1 NR< 1 >=0 S NR( 2 )=0 S NR< 
3)«0 


A TECHNIQUE TO RUN PROGRAMS FROH 
AN EXEC OR FROH THE KEYBOARD 

John L* Moon 

Here is 3 suggestion about how to code programs so that then can be run 
either from an Exec or directly from the Keyboard - even when some parameters 
have to be passed to the program* 

This might occur with any Kind of program? in my case it was the abbs 
that I was writing* At times? I wanted to invoke the program from the Keyboard 
and have all controls entered by me at that time* I also wanted another mode 
where the program would be run using a set of default parameters < that I might 
wish to change from time to time) as it booted from disk* The solution was to 
program like this* 

10 IF ZZ=1 THEN GOTO 100 
20 REM ALL INITIALIZATIONS 
FOLLOW HERE? QUERYING 
THE KEYBOARD? 30 IS AN EXAMPLE 
30 INPUT "FILENAME^" ?F$ 

100 REM REST OF INITIALIZATIONS 


When run from the keyboard using the RUN command? the variable ZZ is set 
to 0 by Basic so that statement 30 in the above example would be executed* 

To run from an Exec? the Exec would contain lines like* 

LOAD PROGRAM 
ZZ=1 

DIM F$< 20 ) (NOTE: INTEGER BASIC ONLY 
Fi= " DEFAULTF I LEN AME " 

GOTO 10 

In this case? since the program is started with a GOTO statement instead 
of a RUN statement? the variables are not initialized and the program will 
detect that ZZ HAS BEEN set and skip over the part of the program that Queries 
the keyboard* 

This works best in Applesoft because character variables do not have to 
be dimensioned first* But it can also be used in Integer Basic if you take 
care to dimension the character variables correctly* 
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3100 NF=NS/HAX 
3110 IF NF=0 THEN 3130 
3120 FOR 1=0 TO NF-ltNR< I )=HAXJ NEXT 
I 

3130 NR(NF)=NS HOD MAX 
3140 RETURN 

10080 REH *********************** 
10090 REH * SAVE TAPE RESTORE * 
10100 REH * BY DANA J. SCHWARTZ * 
10110 REH * 6/1/80 * 

10120 REH *********************** 
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Writing Interactive Programs 
Paul A* Sand 
Computer land/Rockville 

This article concerns a pet peeve of mine and the 
Achilles'* Heel of many programs: lack of concern for program 
users by program authors. This lack of concern shows up in the 
parts of the program that give the user information and expect 
him to type responses on the keyboard. Far too many programs 
assume that the user will never make a mistake in entering data 
from the keyboard. There are few things more frustrating to a 
computer user than crashing a program by making a simple typing 
mistake, especially when the crash causes valuable data to be 
lost or hours of work to be wasted. Many programs fail to 
communicate to the user just what is expected of. him and what 
his options are. This may cause a time-consuming search of the 
program documentation (if it exists) or random and dangerous 
experimentation by the user as he tries to find the magic words 
the program expects him to type. In short, too many programs 
are just plain difficult to use, requiring too much effort from 
the user than necessary. After all, one purpose of the computer 
is to reduce drudgery: so why are there so many "lazy” programs 
that ask for extra work from the user? 

Needless to say, a program that is difficult and 
frustrating to use will not be used much at all. Even if it 
uses the fastest algorithms and provides more features than any 
similar program, unless it is pleasant and conceptually simple 
very few people will want to attempt to figure out how to run* 
it succesfully. And an unused program was a waste of time to 
write in the first place. The following tips may help 
programmers to write programs that will be "nicer" to the 
people that use them. Even if the programmer is the. only one to 
ever use his programs, these suggestions will still be 
worthwhile; in a few months or weeks even he may not be able to 
figure out his poorly designed program. 

The prime rule to remember when writing any interactive 
code is simply: CHECK ALL INPUT. To state it more strongly: 
Assume the program's user will make dreadful blunders in 
entering data, because (by Murphy's law) he is certain to do 
so. Your program should be protected from the user and the user 
protected from your program. Although it's impossible to catch 
all errors, careful input checking will eliminate all but dumb 
or malicious mistakes. 

There are many ways input data entered by the user can be 
checked, depending on its nature. If the user was to have 
entered a number, the program should make sure a numeric value 
was actually typed in. (Some Basic interpreters catch this 
error.) It is nearly always appropriate to check a numeric 
input to insure that it lies within a certain range. A 
too-large number, if not caught, can cause any number of things 
to happen to a program, all of them bad. 


) 
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) ) 


It may also be appropriate to check a numeric input for 
plausibility. A wrongly entered number may be acceptable in 
that it doesn't cause the program to crash, but should still be 
checked carefully; a classic story involves a property tax 
estimation program that valued a 1967 Ford at over seven 
million dollars without blinking an eye. 

Non-numeric data can also be checked in a number of ways 
depending on the particular application. It may be that an 
entered string is too long or short to be processed correctly. 
It may contain characters that don't make sense. (A person's 
name shouldn't contain any digits. On the other hand, his 
Social Security Number shouldn't have anything but digits and 
dashes.) 

When a relatively small number of user responses are 
considered valid, the program should check that one of those 
responses was actually entered by the user. The most common 
example occurs when a program expects a "YES" or "NO" (or "Y" 
or "N") response; the program should reject any other response. 
It is truly amazing how many programs fail to do this, assuming 
that any input that isn't a "Y" is a "N" or vice versa. In just 
a few minutes of browsing through the July 1980 issue of 
Creative Computing, I found this failing in four different 
program listings. 

What to do when an input error is detected is a more 
complicated question. Usually the most appropriate action is to 
simply re-prompt the user and let him try again. If the 
programmer wants to make the user feel bad - he shouldn't - a 
snide error message can be generated. ("Enter a "YES" or "NO" 
please.") In a few cases, the user may be trying to escape from 
a piece of the program he wandered into by accident. ("I don't 
want to enter this record, after all.") and the program could 
interpret a certain character as a signal by the user to give 
up on the current process and return to the next higher program 
level. 

A problem related to error checking is how to make the 
program give the user enough information to answer the 
questions the computer asks. Many programs don't let the user 
know what the program expects from them. Of course, this is the 
whole idea of some game programs such as Adventure. But it 
isn't very much fun for the user to be forced to figure out the 
magic words for a more serious program. Although rigorous 
error-checking should protect users from most of their 
mistakes, an adequate amount of "prompting" information can 
save them from making all but pure typing blunders in the first 
place. 


A useful standard for those questions that have a small 
number of valid responses is simply to list the options 
available in the prompt line: 

Do you want to continue? (Y/N) : 
or 

Slow, medium, or fast monsters? (S/M/F) * 

In the case where a range of input values is acceptable, 
the prompt can also clearly indicate it: 

What is your height in inches? (36-84) : 
or 

What is the current month? (1-12) : 

Another good method for indicating the user's possible 
choices is the "menu" - a list of briefly described options 
from which the user can choose by simply typing a single number 
or letter. This method is often used for the main control 
structure of larger programs such as Apple's Controller or File 
Cabinet. 

Default answers can be a boon for poor typists. (A default 
is the answer assumed by the program to be meant by the user if 
he simply hits 'RETURN" in response to a prompt.) Although 
handy, defaults should be used with care; the default answer 
to: "Do you want to delete the data file?" should be NO, not 
YES! But to use a default, the user must know what the default 
is. There are a number of possible ways to do this; one is 
suggested by Bruce Field in the April 1980 Apple Pi 
(Programming Quickie, page 7), putting the default in inverse 
video when it appears in a list of legal answers. Another 
semi-standard (clumsy to do in Apple Basic) is to put the 
default in square brackets on the prompt line: 

Enter character size in inches[0.14] : 
or 

Do you want to continue? (Y/N) (YJ : 

Still another way is to display the default where the user 
would type his answer. If the user enters a non-default 
response, it replaces the default on the screen. 
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Many programs that use random-access disk files 
understandably require a restriction on the maximum length of 
an entered string. If such a requirement exists, the user 
should be made aware of it. Again, there are a number of 
methods : 

Enter Address (25 characters max.): 

This is very undesirable. Forcing a user. to count 
characters is bound to start him wondering why he got a 
computer in the first place. Actually he should be wondering 
why he is using a program that makes him do the dirty work. 

A better method is to indicate the maximum length directly 
on the screen somehow: 

What is today's date?: 

In this case, the eight periods show that the program 
expects the user to enter no more than eight characters. The 
user's input replaces the periods* as he types it in. 

Perversely, although adequate information is necessary for 
users to input data properly, too much information displayed 
onscreen is nearly as bad as too little? users will tend not to 
read anything longer than a few lines. Gabby explanations are 
generally unappreciated by the person who is learning the 
program and are useless for the person who has mastered it. 

They should be saved for the program documentation. Some 
programs have a "verbose" mode, turned off or on by the user as 
necessary, that gives more informative error and help messages. 
In some cases, this mode can almost act as the program's user 
manual • 

By now the reader may be asking: How in the world can I do 
all this checking and verifying stuff every time ray program 
requests input from the user? If the program expects a lot of 
such input, an general subroutine is indicated, probably 
resulting in a net code saving. Isolating input into a 
subroutine also has the advantage of insuring uniform rules for 
entering data throughout the program. Here are two such 
subroutines, one in Applesoft Basic, the other in UCSD Pascal. 

The Applesoft routine incorporates many features discussed 
above. It expects the following variables to be defined before 
it is called: 

yp% - line number on which question is to be asked. 

If yp% is not in the range 1-24, the current line is 
used. 

xp% - column number where prompt is to begin. It 
should be small enough so that both the prompt and 
the response will fit on the line. If xp% is not in 
the range 1 to (39 - len(qu$) - ml%) then the prompt 
will start in the first column. 


qu$ - prompting question. 

df$ - default answer. The default will appear after 
the prompt, as discussed above, if df$ = null then no 
default is accepted. 

va$ - string containing "legal" input characters. Any 
character typed in that is not contained in va$ will 
not be accepted. If va$ « null then such character 
checking is not done. 

ml% - maximum length of input string. A string of ml% 
periods will be displayed after the prompt as 
discussed above, although some or all of it may be 
overwritten by the default. Attempts to enter 
characters beyond the maximum length won't work. 

Also, the output answer will be padded on the right 
with blanks, if necessary, to a total length of ml% 
characters. If ml% = 0 then none of this is done. 

mn$, mx$ - minimum and maximum strings, respectively. 

They are used for range checking; if the answer is 
not between mn$ and mx$ inclusive (using Applesoft 
string comparison) , the user is reprompted. If mn$ >** 
mx$ then no range checking is done. 

The user's answer is returned in the variable an$. Since a 
lot of string manipulation is done within the subroutine, a 
freespace calculation is done at the end to force Applesoft to . 
clean house. A typical yes/no answer would be obtained as 
follows: 

100 qu$ « "Do you want to continue? (Y/N) ■ 

110 ran$ ° "": mx$ = "": yp% =* 12: xp%=10 
120 df$ ® "Y": va$ » "YN": ml% = 1 
130 gosub 10000 

Or a zip code: 

200 qu$ » "Zip Code?": mn$ = "00000" :mx$ = "99999" 

210 yp% » 20: xp% - 1: df$ =• 

220 va$ ® "0123456789": ml% = 5 
230 gosub 10000 

The Pascal function is less complex to use. It picks a 
default answer and a list of possible answers out of the prompt 
question string. The prompt should be in the form: 

Question? (posl/pos2/. . ./posN) [default] : 

where both the default and list of possible answers are 
optional. If a default is given and the user simply hits 
"return" then the default is returned to the calling routine. 

If no list of possible answers is given, the function returns 
whatever the user typed in, or the default. If the list is 
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given, then the user's answer is checked to insure that he 
typed one of them. 

Since OCSD Pascal (unfortunately) does not allow strings 
to be returned as function values, the user's answer is 
returned as a var parameter in the argument list. However, the 
first character of the response is returned by the function, 
allowing straightforward code like: 

repeat 

playagame 

until (answer ('Want to play again? (Y/N) [V] :', ans) * 'N'); 

or 


case answer ('What now? (ADD/CHANGE/DELETE/EXIT) : ' , ans) of 
'A': addrecj 
'C's changerec; 

'D'; deleterec; 

'E'i exit(program) 
end; 


These suggestions are certainly not meant to be the final 
answers to the problem of how to handle the interaction between 
the user and the computer. Every program will have its own 
requirements for input checking and user prompting. But the 
basic lesson remains: programmers should give the users of 
their programs every chance to run them pleasantly and 
succe8fully. 




rem General Interactive Input Routine 


10000 if yp% > 0 and yp% < 25 then vtab yp% 

10010 if xp% < 1 or xp% > 39 - len(qu$) - ml% then xp% » 1 
10020 htab xp%: print qu$;":*; 

10030 if ral% <= 0 then 10050 
10040 for i ° 1 to ml%: print *. m jt next i 
10050 an$ =* xc% * xp% + len(qu$) + 1 
10060 htab xc%: print df$;: htab xc% 

10070 get ch$: ch% « asc(ch$): if ch% « 13 then 10220 
10080 if '!i% <> 8 then 10160 

10090 if len(an$) <® 0 then print chr$(?);: go to 10070 
10100 xc% =* xc% - 1: htab xc% 

10110 if ml% <» 0 then print ■ go to 10130 
10120 print 
10130 htab xc% 

10140 if len(an$) <® 1 then an$ « go to 10070 

10150 an$ * left$(an$, len(an$) - 1): go to 10070 

10160 if va$ = then 10200 

10170 i% a 1 

10180 if i% > len (va$) then print chr$(7);: go to 10070 

10190 if mid$(va$, i%, 1) <> ch$ then i% ■ i% + 1: go to 10180 

10200 if len(an$) >* ral% and ml% > 0 then print chr$(7);: go to 10070 

10210 htab xc%: print ch$;: xc% » xc% + 1: an$ « an$ + ch$: qo to 10070 

10220 if an$ » then an$ « df$ 

10230 if an$ ® "• then print chr$(7);: go to 10000 

10240 if len(an$) < ml% and ml% > 0 then an$ = an$ + " go to 10240 
10250 if mn$ >= mx$ or (an$ >® ron$ and an$ <* mx$) then 10270 
10260 print chr$(7);: go to 10000 
10270 htab xp% + len(qu$) +1: print an$; 

10280 i - fre(0) 7 

10290 return 


function answer (question: string; var ans: string): char; 
const 

MAXOPT o 10; 

Ml - 11; (* MAXOPT + 1 *) 

var 

default, response, temp: string; 
pi, p2, nopts, i: integer; 
opt: array [1..M1] of string; 

begin 

pi :» pos('[', question); 
p2 :« pos(')', question); 

if (pi > 0) and (p2 > 0) and (p2 > pi + 1) then 
default :« copy (question, pi + 1, p2 - pi - 1) 
else 

default :«* "; 
nopts :® 0; 
temp question; 

pi :« pos ( ' ( ' , temp); 
if pi > 0 then begin 
delete(temp, 1, pi); 
p2 :* pos('/', temp); 

while (p2 > 1) and (nopts < MAXOPT) do begin 
nopts :« nopts +1; 
opt [nopts] :® copy(temp, 1, p2 - 1) ; 
delete (temp, 1, p2) ; 
p2 pos('/', temp) 
end; 

p2 pos ( ' ) ' , temp) ; 

if (p2 > 1) and (nopts < MAXOPT) then begin 
nopts :® nopts +1; 
opt [nopts] :» copy (temp, 1, p2 - 1) 

end 

else (* bad syntax in question *) 
nopts 0 

end; 

repeat 

write (question) ; 
readln ( response) ; 
ans :« "; 

if (response ® ") and (default <> ") then 
ans :® default 
else if nopts <® 1 then 
ans :« response 
else begin 

opt [nopts +1] :« response; 
i :® 1; 

while opt[i] <> response do 
i :® i + 1; 
if i <® nopts then 
ans :« opt[i] 

end 

until ans <> "; 
answer :® ansflj 
end; 
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*** WASHINGTON APPLE DIGEST *** 


CREATIVE COMPUTING, August 1980 

Visicalc product review, P26. Good summary 
of capabilities. 

Computer Bismarck, product review, P31. 
Very sophisticated rules, and at least 
several hours must be spent reading them 
before initiating the game. Games can be 
saved to disk after any turn. As an alter- 
native, your computer can assume the role 
of Otto, the simulated admiral of the 
opposition^f^rces. (Strategic Simulations, 

Sorting techniques , P35..Part I of a three- 
part series. Good" technical discussion of 
the "insertion sort" method. You have to 
think about it while you read the article. 

Word processing, P38. Review of the "Magic 
Wand' software product. This is a package 
which sells for $400 and does not apply to 
Apple computers, but it describes a number 
or features of word processing that might 
make the article of interest to some. 

Marketing your own software, P52. This ar- 
ticle concludes tnat tnere is a lot of psy- 
chological reward, but little money, it 

f ives some hints for those .who are interes- 
ed in selling their creations. 

Copyrighting, P140. Good discussion of the 
laws ano implications . 

Stock market analysis, P56. Part 4 of a 
description of a software product for an- 
alysis. It's a long article, and it might 
be. useful to those interested. Aversion 
of the program is available for the Apple. 

Graphics, PI 10. Plotting of pie-charts, 
program and discussion. P116: Plotting 
with the Diablo printer. 

Apple products, P148. Disk speed adiust- 
mdnt », .dndthdr review of the Apple. Ill, 
including SOS, mail list manager, business 
Basic. 

Games , P142. An article on the theory of 
writing game software. 

Robots, P74. Review of a conference on the 
subject . 


INFOWORLD, July 21, 1980 


For the average business man or the compu- 
ter novice, however. I would say that they 
should investigate Apple's Controller pack- 
age or wait until the rest of the Osborne 
programs have been converted and better 
end-user manuals created." A fair review. 
Should be read before purchase (or devel- 
opment) of any business-oriented software* 


DOS 3.3 (and DOS toolkit) . 


P15. Elementary, 
and the DOS Tool- 


kit. a set of software tools that lets 
Applesoft people write more easily in as- 
sembly, costing $75.00. If you don't have 
a language card (which lets you use a real 
assembler;, the Toolkit looks interesting. 


Videotape meets Micro, P50. Elementary. 
Announcement of - "ah" intelligent VTR (Video 
Tape Recorder) controller to integrate an 
Apple II with a video player." This is not 
another Winchester backup; rather it is Tor 
intelligent CAI (Computer Aided Instruc- 
tion). This reminds me of the old film 
strip projectors ho.oked up to tape recor- 
ders. They have their place, but does the 
•world really need them? 


INFOWORLD, August 4, 1980 


According to Garetz , PI 2. Elementary (Rumor) 
a well-informed source inside Apple Compu- 
ters says that one of Apple's next-genera- 
tion machines (beyond Apple III) is being 
designed in a unique way. Apple plans to 
write the user manuals before designing any 
hardware or software. If Apple can pull it 
off, the highly useroriented machine should 
be the ideal personal computer that only 
visionaries dream of. This source also 
comments that Apple has the resqurces . to 
succeed. There seems to be inconsistencies 
in this article. 


Testing students a better way , PI 2. Soft- 
ware review (intermediate level). "Ari- 
stotle's Apple" (Stoneware Microcomputer 
Products) is a generalized, teacher-orien- 
ted authoring program that can be used to 
construct multiple choice, fill-in-the- 
blank, and column matching drills. Ari- 
stotle,' as the Stoneware, people refer .to 
the package, also contains a file editing 
system for changing and deleting drills, 
and allows the drills to be presented in a 
"tutor" of "exam" mode. The review goes 
on to evaluate the programs 's functionality 
(fair), ease of use (good), documentation 
(poor), error handling (good), and support 
(good). It is fairly lengthy and detailed, 
and supports its criticisms well. If I 
were to be in the market for computer- 
aided instruction .tools, I would. use this 
article as a yardstick for evaluating other 
packages as well. 


Small business computer systems general 
ledger, rl2. THeauthor summarizes as fol- 
lows: "I heartily recommend this general 
ledger for those who only need a general 
ledger for their Apple, and who are familiar 
enough with computerized business systems 
so that documentation won't overwhelm them. 


Disk Apple II Report Textwriter (DART) P15 
elementary, me uakt ' proce s s ing software 
was designed to simplify the creation of 
letters, reports, and other output text. 
Options include pagination, line justifica- 
tion, titles/subtitles, and page numbering 
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($19.95).. Cheap, interesting, but don't 
these things exist in profusion now-a-days? 

BYTE, July 1980 

The theme of the issue is computers in edu- 
cation. Two items are for or about Apple. 
Several are of general interest. 

Apple III product description, P50. Based 
on the Apple product description available 
at most dealers. It includes some color 
pictures of the Apple III and its high res- 
olution graphics display. 

Interactive control of a video cassette 
recorder with a personal computer, P116. 
For hardware/software experts. Explains how 
tq control a Sony SL0-320 video recorder 
with your Apple. Includes schematic for an 
interface board (which you would have to 
build) and listings of Basic programs and 
assembler routines. 

Pilot/P : Implementing a high-level lan- 
guage in a hurry, P154. For Pascal pro- 
grammers. Describes a pre-processor which 
translates PILOT programs into Pascal pro- 
grams. Includes a complete listing of the 
translator — about 160 lines of UCSD Pas- 
cal. Includes two short sample PILOT pro- 
grams, otherwise assumes you know how to 
use PILOT. 

Simulating human decision making , P56. A 
weii-written article about game playing 
strategies using the game of Othello as an 
example. Learn now to beat your computer 
or invent smart programs. 

Creating a fantasy world on the 8080 , P210. 
For ambitious game programmers.. It des- 
cribes advanced programming techniques used 
in adventure type programs. 


BYTE, August 1980 

The theme of this issue is the FORTH lan- 
guage. No articles. are particularly aimed 
at Apple owners. This might be an issue to 
skip unless you are thinking about taking 
a plunge into FORTH programming. If you 
are interested m FORTH, the articles will 
give you some idea of how the language 
works. The articles are a bit too techni- 
cal for the novice and probably too simple 
for experts. 


Editor's note 

Thanks to these contributing editors: Dave 
Efron, Mike Leavitt, and Bill Schultheis. 

We're still searching for more contributors 
to cover a broader representation of infor- 
mation sources. We're also searching for a 
standard format for publishing our reviews. 
Call . 251^0225 or see Dave Efron at the 
meeting if you are interested in helping. 

As a suggestion, it would be ideal to have 
several persons covering sources like Cre- 
ative Computing. One individual could scan 


and review articles dealing specifically 
with games., while another person could 
cover graphics, etc.. Some of these topic 
areas require a reviewer with some special 
knowledge or interest in the subject. For 
example., a more extensive review of games 
and articles about games would be performed 
by someone with an interest in the subject. 

As time progresses perhaps interest in this 
column will afford broader and more exten- 


sive coverage. 
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ODYSSEY- THE COMPLETE ADVENTURE 

Perhaps the best way to begin this review is to relate what I remember about the 
author> Bob Clardy , from a telephone conversation with him about a year ago* Before 
moving to Washington State from California. Bob was (and possibly still isT a "Dungeons 
and Dragons" fanatic* In Washington. Bob bought an APPLE II* His first commercial 
effort was entitled "Dungeon Campaign" , a multi-level dungeon maze with several 
innovations in the use or real-time monsters and user interaction* Then followed 
"Wilderness Campaign" which, until now, I had considered to be the finest blend of 
APPLE and "DAD" * Wilderness introduced Hi-Res into APPLE fantasy gaming. Moreso, a 
Wilderness game was a scenario and a player had the impression of living a story. 
Unfortunately, Wilderness had a few bugs and these bugs were what lead me to call Boo 
(and learn the preceding in the progress)* Within days, I received an errata sheet in 
A all became perfect* 


I received an errata sheet 


the mail and all became perfeot* 

In the year that followed, I'd seen Bob's name on some utility and commercial type 
programs and had assumed he had forsaken fantasy programming* Then. Just a few days 
ago, I spotted Odyssey at a local computer store* As soon as I spotted the author's 
name, I knew that I need look no further to determine if the program was worth its 
price, and so, the following review is from a very satisfied customer* 

Odyssey is quite extensive. There is so much programming on the diskette that it was 
necessary to remove the DOS to make room for everything* The user's first instruction 
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necessary to remove the DOS to make room for everything* The user’s nrst instruction 
is to "boot” DOS with any standard 3*2 diskette* APPLE PLUS users beware that Odyssey 
requires Integer Basic and 48K in order to run* Although a 16 page instruction manual 
is provided, several readings are necessary and (probably) several tries of the game 
also before Odyssey is understood. This is in no way a detraction and merely typifies 
the extensiveness of the game* A full Odyssey takes several hours and the author 
thoughtfully provided a "SAVBOAME" feature* 

Odyssey is a role-playing game with more "DAD." elements than I would have believed 

possible* The user will experience many "Adventure" type situations and "dungeon" type 
situations in new formats* The basic scenario is to accumulate necessary force to 
topple the evil ruler, but that is a gross oversimplification. A typical (but 

condensed) game follows* 

At the beginning the player starts on a hi-res map of an island near a village* The 
first step is to go to the village and buy food/weapons/armor/supplies necessary to 

search the island to build a large enough force* Barter with the merchants and the 

price might come down, but if you barter too much the merchant might refuse to sell* 
Now search the island* Various treasures are there to find with the right resources. 
Unless you have a light source, you will not be able to search the dark ruins* 

(Adventure elements are used extensively)* Various obstacles can not be overcome 
without the correct supplies* You will search Jungle, swamp, and mountains for 
supplies and treasure* You will be attacked by all sorts of characters. Mercenaries 
may join your force or attack you. You may be attacked or offered assistance by 
magical people* You never know if the "old hag" is offering you a bargain of trying to 
gyp you. 


is to "boot" DOS with any standard 3*2 diskette, 
requires Integer Basic and 48K in order to run. 


ruins* 

overcome 


As you recruit your force, you incur obligations. . , 

you need to feed and arm them* Acquire more than your force can carry and you will 
nave to drop items, but be forwarned, virtually everything you acquire has .some use 
somewhere in the game. That fruit you may have passed up purchasing saves your force 
from scurvy at sea* Finally you acquire enough money and resources (if you don't get 
killed in the effort) and you go to the port city and buy a ship. Be sure you have 
everything you might need, for once you leave the original island, you are not allowed 
to return. 

After you answer the question "Do you wish to leave the island" with a yes, the map of 
the island disappears and is replaced by a hi-res sea map. Not to pun, but all is not 
smooth sailing. If you had bought the right equipment you will be aware of the wind 
and current factors. You need these in order to manage your sails and navigate to 


The larger the force, the more money 
i your force can carry and you will 


and current factors. You need these in order to manage your sails and navigate to 
another island. Lose control and you may sail off the earth. Watch out for pirates, 
sea monsters and flying monsters. If you planned wisely, all may be overcome with the 
right assets, otherwise you will suffer losses* You will experience bad weather 
conditions such as fogs, calms, and storms. All of these cause problems of one sort or 
another. WATCH OUT FOR THE WHIRLPOOL! 


Survive long enough and you land on another island* If it is the island of 
Caliph.leave quickly, for you will be wiped out without the Magic Orb. (The orb is 
normally found in the catacombs under the Temple of Nordil)* If it is an empty island, 
restock food and water and set sail for another island* Finally you land at the temple 
and the wizard at the entrance will not let you pass. 

Somehow you find the right way to pass the wizard and you find yourself in lo-res 

caverns* As you search the caverns for the orb, you also run into several hazards. 

After you find the orb, you must also find a way out. 

All has been successful, you found the orb, departed (the sea map is back), and found 

your way to the island or the Caliph* (Anot her hi-res map). You approach the castle and 

experience new hazards and traps. "■ — - J 


Suddenly some of those things you acquired along the 


trip are useful in passing the hazards* (Hint: If you remember your mythology and you 
know how Perseus killed tne Medusa, be prepared to do the same). But be aware that the 
author randomized these final hazards* In several games, you may faoe entirely 
different puzzles requiring the right resources* 

Finally, you get to the castle and topple the Caliph and the game is over* Final 
statistics are displayed along with a composite score* My two sons are still trying to 
beat the 75,340 that 1 set (and so am I). 


Even after playing the game, there is still enjoyment in trying to better results on 
replay* Flex your faculties with fun, fantasy, and frustration* Try Odyssey* 


Prodgot^is available for $30 from Synergistic Software, 5221 120th Ave, s.e* Bellevue, 


Sandy Greenfarb 


STOCK MARKET UTILITIES 


5 STOCK MARKET PROGRAMS ON DISK 

STK.l C37 Sectors) provides complete utilities for manual 
entry of stock data. 

FEATURES: names stored alphabetically by exchange, easy 

addition and deletion of names, automatic prompting and 
extensive error trapping for data entry (date, volume, 
price), numerous entry points for data correction, all data 
displayed prior to updating stock files with further option 
for data correction, option for inputting historical data 
to a single data file, display individual stock files from 
disk, option to reduce files to last 260 entries for 
high-res graphics. 

DATA CORRECTER (14 Sectors) used to correct and rewrite 
stock data files. 

FEATURES: option for general data correction - Correct any 
entry, option for stock splits - all prices and volumes 
prior to split scaled by split ratio to provide continuous 
momentum and price curves. 

EVAL (20 Sectors) provides comparative evaluation of stock 
performance. 

FEATURES: synchronizes NYSE index ave with first stock 

entry, option to evaluate all stocks automatically or just 
one, simultaneous high-res display of momentum, price, and 
price relative to NYSE index, auto scaling graphics, 
numerical figure of merit for performance relative to NYSE 
index ave. 

Much more! Programs written by H. S. PILLOFF 
Requires Apple II, ROM Applesoft, 48K and Disk 


Price $39.55 
Md. residents add S% 


H6H SCIENTIFIC 
13507 PENDLETON ST. 
Oxon Hill, MD. 20022 


TEL (301) 292-3100 


*** BIORHYTHMS*** 


THIS IS A LONG PROGRAM » AND FOR 
THAT REASON). I (BLUSH) TO SEND IT IN. 

IT IS ALSO QUITE FAST AND VERSATILE y 
THE GRAPHS ARE NICELY CENTERED AND AC- 
CURATE t AND DATES AS EARLY AS MARCH 1* 
1700 ARE ACCOMMODATED. 

CALENDAR AND DAY-OF-THE-UEEK CAL- 
CULATIONS HAVE BEEN FASCINATING TO ME 
FOR SOME TIME? ESPECIALLY AFTER SEEING 
JOHN L. MOON'S 'PERPETUAL CALENDARS IN 
THE SEPTEMBER » 1979 ISSUE OF WASHINGTON 
APPLE PI NEWSLETTER. THE PROCEDURES IN 
THIS PROGRAM WERE OBTAINED FROM ONE OF 
MY HEWLETT-PACKARD CALCULATOR MANUALS). 
AND WORK VERY WELLy INDEED. (I WAS CURI- 
OUS ABOUT THE '30.6' CONSTANT -LINE 520- 
AND FINALLY DISCOVERED THAT IT IS THE 
AVERAGE NUMBER OF DAYS PER MONTH FOR THE 
11 MONTHS EXCLUDING FEBRUARY. ) 

VERY INTERESTING! 

I HAVE INCLUDED AN OPTION WHICH I 
HAVE NEVER HEARD OF BEFORE y BUT WHICH 
MAY HAVE SOME VALIDITY: 

>>>—> A FOURTH CURVE (SUMMATION OF THE 
THREE 'USUAL' BIORHYTHM CURVES) CAN BE 
PLOTTED y AND MAY INDICATE OPTIMUM TIMES 
FOR ACTIVITY (OR REVITALIZATION). 

ANYWAY y HERE IT IS FOR WHAT IT'S 
WORTH. 

SINCERELYy 

HOWIE MITCHELL 
7823 SW. 55TH PLACE 
GAINESVILLE y FLA. 32601 
AUGUST y 1980 

5 SLOT = 1 

10 reh * ** * ********* ********** 

11 RBI* $ 

12 REH t A N ELEGANT I 

13 REH t 8I0RHYTHH PROGRAM I 

14 REH* * 

15 REH t FOR: THE LRC 70004 t 

16 REH * PRINTER (EATON CO.) t 

17 REH* * 

18 REH * H.MTCHELL: jULT'80 I 

19 REH* * 

20 reh *********************** 

50 TEXT : NONE 

100 IEH ************************* ** 

INITIALIZE: OIKENSION, t* SET STRINGS* DATA FOR It I DAYS I 

n month. tt mmmmmtm 

* * ******* 


10S DIM H0K12)»I8K12) 

110 DATA JAJMYi31iFEBRUARY>28iHARCH>3ljAPRILj3OitMT»31iJl0$j3 
0» JS. Y y 3 1 y AU GUST y 31 y SEPTEMBER y 30 y OCT OBER y 31 y NOVEMBER y 30 y DECEMBER 
*31 

US FOR N = 1 TO 12: REA3 HOmBIKN): NEXT 

120 DATA StfflDAY »HONDAY»TlESDAY»iOESDAYyMOBDAY iFRISAYi SAMD 

AYiStlDAY 

125 FOR N = 0 TO 7: READ DA$(N ): iOT N 

HOKN) = MONTH NAME tt DH (N) = i DAYS IN H'TH.tt DAWN) = 

ttttttm 

135 PRWl) = CHRf (4) 4 “PRT 4 STRt (SLOTH CHRM13M £H 
R* (IS) 4 OH* (31):PRW0) = CMtt (4) 4 W 4 CHR* (13) 

140 REH t t** *** ************* * * *** ** 

PRK1): PRINTER ON tt (8 64 (M/LINE) tt PRKODP 
SINTER OFF tt (1 0 CHARADE). tt 
****** * ************* *** *** ** * 

PROGRAM TITLE l INPUT O ************ 

* ** * **** ******** * 

204 TEXT : HOME ' 

208 HTAB3 

212 PRINT u m ELEGANT BIORHYTHM PROGRAM m 

o. p RINT 

216 PRINT “ THIS PSOGRAH SILL MAW GRAPHS OF YOUR BKMTHN CT 
CLES; F(K A 3-HONTH PERIOD; 8EGMNG ON TIE FIRST OF ANY SPECIF 
IED MONTH AND YEAR.-: PRINT 

220 PRINT a IN ADDITION; IT HILL PRINT OUT SQHE BASIC INFORH 
ATION ( IF YOU KISH) AS TO WHAT BIORHYTKiS ARE.” 

224 PRINT : PRINT : INPUT °«( PRESS RETURN »> a iH0LBi: HONE 
223 PRINT” PLEASE SELECT FREBi THE FOLLOWING: 

232 PRINT” 1. BASIC BIO-CYCLE GRAPH.”: PRINT : PRINT 0 2. BA 
SIC BIO-GRAPHS + INFORMATION. u : HTAB 6: PRINT “(ON UHAT BIORHYTH 
HS ARE. ETC.)”: PRINT 

236 PRINT 3 3. BASIC BIO-GRAPHS 4 'SUMAVE' (SUHHAT 

ION CUR'JE FOR THE THREE CYCLES ADIO TOffiTHER). 

240 PRINT : PRINT " 4. 8IQ-GRAPHS+SUH HAVE+INFORHATION. 9 
244 PRINT “ 5. PRINT BATA FRIS1 BATA LINES/: HTAB 6: PRINT “CU 
a LINES 1450-498)/: PRINT : PRINT ” 4. AUTOMATIC PRINTOUT OF 
A SERIES OF CHARTS; FROM DATA LINES.": PRINT 
246 PRINT ■ 7. END 8. END 1 DELETE DATA/: PRINT 
248 PRINT ■ NHICH DO YOU CHOOSE ?”?: GET CHOICECCHOICE = VAL 
'CHOICE* 5 

252 PRINT ”*» CHOICE rSCHi" tt”: IF CH ( 1 OR CH ) 6 THEN PRI 
NT 5 * * * ( PROGRAM EMBED.)"? 

253 IF CH = 7 THEN VTAB 23: END 

754 IF CH = 8 THEN PRINT ” (BATA &LETED)”i: VTAB 23: IE 45Q; 

443: END 

755 IF CHOICE ( i OR CHOICE ) 8 THEN VTAB 23: END 

.256 FOR N = 0 TO 1000: NEXT : HOKE : IF CHOICE = 5 TUN 400 

tq TC i'uflTfT - k TlffM A/tf* 

263 IitfUT" PLEASE TYPE IN YOUR FIRST NAHEi CQHKfty THEN YOUR 
LAST HAKE: 

»-) ”;NA«1);NA«2) 

762 UNO = l: REH :FLAG FOR SINGLE ENTRY. 

264 PRINT: PRINT" MR YOU; ”;NA« 1)5°/: PRINT 

268 INPUT” NOW; PLEASE TYPE IN YfflJR BIRTHDATE (MONTH; DAY; 
TEAR); SEPARATING THE THREE NUMBERS WITH COMMAS: 

))-) “;BH;BB;BY 

272 IF BY ( 100 THEN BY = BY 4 1900 

276 COSUB 500:BBW1) = BB*: REH :GET JULIAN DATE;B'BAY Iff WEEK. 
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SO PRINT : PRINT "Stt JULIAN BAY NO. = “IJDi" ttr: PRINT : PR 
IT mi)?, YOU HERE BORN ON A "iBDAYSJV 
284 PRINT : PRINT B NEXTi PLEAS TYPE IN THE MONTH MU YEAR 
FOR THE &GINNINC OF YOUR CHART:": PRINT . 

284 INPUT "»-> (WIfYY) ? "iPMiPY: IF PY ( 100 TUN PY = PY ♦ 
^\l?00 

?88 LIVE = JDsY = PY:« = PM:D = l: COSUB SOfcLIVE = INHJB - L 
IVE): REN : NOU> "LIVE" GIVES I BAYS PERSON HAS BEEN ALIVE AS OF 
THE BEGINNING OF THE FIRST PREDICTION MONTH. 

290 'SINT : PRINT "0* JULIAN BAY NISSER = W OS": PRINT : 
PRINT "DIFFERENCE = "fLIVEJ” DAYS." 

"?2 PRINT : PRINT " GOODi AND THANHOUi "»NAS(1 PRINT 
294 PRINT" I NON HAVE ENOUGH SATA TO PREPARE YOUR CHART. 
YOU SEE? BY KNOUING THE JULIAN BAY DIFFERENCE ( "5LIVE»")» AN 

r 

296 PRINT "BY ASSMNG THAT THE 3 CYCLES BEGIN TO- GETHER ON YO 
UR BIRTHBATEf I CAN CALCU- LATE THE STAGE OF EACH CYCLE AT THE 
BE- GINNING OF "fHOKPHJfVfPYJS AND PROGRESS" 

293 PRINT "THEM BAY-BY-DAY FROH THERE.": PRINT 
299 INPUT "«! PRESS RETURN ») “.HOLDS: HOME 
399 COSUB 450: END 

FJJTIaE TO PRINT OUT O BATA LINE DETA ILS: » 

403 TEXT : HSBff 

404 READ MI): IF NAMEStl) { ) "(END OF DATA)" THEN 409 

407 PRINT CHRS (7): PRINT Ui: PRINT : PRINT " SORRY. OU 
T -5 DATA IN LINES 8450-498.": PRINT 

408 PRINT" ENTER DATA IN LUES 8450-498 f IBIHG THE FOLLOU 
INC FORMAT:": PRINT : PRINT "3LINE8 DATA FIRST NAHEfLAST NAMEfBR 

a TH NfBRTH BAYiBRTH YRfPROJ.MOfPROJ.TRfCWJICES": END 

409 RESTORE : FOR S = 1 TO 32: READ AS: NEXT : REH : READ UP TH 
ROUGH 12 MONTH 1 12 BAYS-OF-HQNTH STRINGS 124) ♦ SUNDAY THRU SUN 
DAY 18 MORE). 


412 rem ooonoooooooot print data entry hails oh 
ummmtmumm 

415 PRIrIT PSK 1 5 

413 PRINT m (30): HIAB 11: PRINT "BATA LINE ENTRIES: 8 : PRIN 

T CHRS (315 

421 PRINT” (NAME) (8IRTHDATE) (CHOICE) (P 

REB.BATE)": FOR N = 1 TO 43: PRINT »-"5: NEXT N: PRINT 


424 READ NAffil(l): IF NAMES! 1) = "(END OF DATA)" THEN FIR N = 


1 TO 43: PRINT "-“5: NEXT : PRINT : PRINT PRKO): El® 

427 READ ?M2;.BHfBDfBYfPHfPYfCH0ICE: IF BY ( 100 THEN BY = 

BY MW 

430 IF PY ( 100 THEN PY = PY M900 

433 GOSUB 500: REM : JULIAN CALC. I B'DAY OF UEEK. 

434 LIMES = NAStl) ♦ ■ » ♦ NA«2): FOR N = LEN (LIS) TO 18:LIS 
s LIS * " ": NEXT :LIS = LIS MBAYS + " • ♦ SIRS (BM) * 7* ♦ 
SIRS (BB) ♦ 7" + SIRS (BY): FOR N = LEN (LIS) TO 41U.IS = LI 
S ♦ " ": NEXT :LIS = LIS ♦ SIRS (QIOICE) 

43? FORN= LEN (LIS) TO 4?:LIS = LIS + NEXT :LIS = US ♦ 
NOStPM) + “ « ♦ SIRS (PT) 

442 PRINT LIS 
445 GOTO 424 

449 REM i O tt O OO OOOOOttO O 

LINES 8450-498 FOR O DATA. FDRMAT:10EIDATA O FHAHEiLN 
AHEfBMfBDfBYi O PMfPYfCHOICE. o 



49? END 
500 REM 
JULIAN DAY NUMBERf 


O BIRTH DAY-OF-THE-HEEK. O 


O 


503 Y = BY:M = SM:B = BD 

505 IF Y / 4 = INT (Y / 4) THEN DR2) = 29 

504 IF Y / 4 ( ) INT (Y / 4) THEH DIK2) = 28: REM : CORRECT D 

AYS-IN-FEBRUARY FOR LEAP-YEAR. 

509 !FH)2THENH = HM 

510 IF H ( 3 THEN Y = Y - l:M = H M3 

515 REM OOOOOOOOtOOOO 01 

» THE NEXT STEPf JD IS O THE 'JULIAN DAY NUMBER'f O IEASIREB 
FROM HAR.M700.0 SOOOOOOOOOS 

tout so 

520 JD = 345.25 I Y + INT (30.4 I M) ♦ D - 421049 

525 JD = JB ♦ (BY ( 1901 Affl H ) 12) + (BY < 1900) <• (BY ( 1801 

AND M ) 12) MBY ( 1800) 

533 8EEKBAY = INT (( INT (JD* / 7 - INT (JB / 7)) t 7 ♦ .5) 

535 BDAYS = BAYKUEEKBAY) 

540 RETURN _____ 

AUTOMATIC PRINTOUT OF O BIIKHARTSf FROM BATA O STATEMEN 

oooso 

405 RESTORE : FOR N M TO 32: READ AS: l£XT H: REM : READ THRO 
SISH INITIALIZING DATAf TO "REACH" BIO-DATA. 

410 READ NAHES(l): IF NAMES! 1) = "(END OF DATA)" THEN PRINT PR 
SfO): PRINT NAHESd): END : REM : END INO BIO-DATA IS EXHAUSTED 


615 READ NAHES(2)!BM!BDfBYiPM!PY!CH0ICE 

614 IF BY ( 100 THEN BY = BY + 1900 

417 IF PY ( 100 THEN PY = PY + 1900 

420 GOSUB 500:LIVE = JB:BBM1) = BBS 

425 Y = PY:H = PN:B = 1: GOSUB 505:LIVE = INT (JD - LIVE) 

430 AS = "" 

B I 0 5 R A P H 0 OtOtOOO 

mmmumm 

?53 PI = 355 / 113: IF CHOICE = 2 OR CHOICE = 4 TEN GOSUB 1000 
: REM : PRINT OUT IffORHATIBN. 

.452 PRINT PRS(l) 

655 PRINT : PRINT : PRINT CHRS (31)1 OSS (14): REM : 32 CHAR/ 
LINE 

440 HTAB 11: PRINT "BIO-CYCLES": PRINT CHRS (15): REM : BACK T 
0 44 CHR/LINE. 

665 REM OOOOOSOOOOOOO O 

MOWN) = MONTH NAME O BM (N) = 8 BAYS IN H'TH.0 DASIN) = 
BAY NAMES. O OOOOOOOOO O 

oottot 

670 NEK OOOOOOOOOOOOt )INPUT VfflUABLES! OB 
SfBDfBY=BIRTH HQtfiArYR 0 PMrfY^PROJECTION KOfTR O H!BiY:USE 
B IN JULIAN DAY O ROUTINE O LIVE=NO.DAYS LIVE 

475 PFRACT = LIVE / 23 - INT (LIVE / 23):EFRAGT = LI« / 28 - 
INT (LIVE / 28):NFRACT = LIVE / 33 - INT (LIVE / 33): REM GET F 
RACTION OF CYCLES FOR BEGINNING OF ORRENT MONTH. 

480 PF = PF i 2 * PI:EF = EF t 2 I PI:MF = MF I 2 I PI: REH : ST 
ARTING ANGLES IN RABIES. 

4K BP = 2 » PI / 23:K -1 X PI / 28:BH = 2 t PI / 33: REM : DA 
ILY ANGLE INCREMENTS IN RADIANS. 

487 AMP = 20: IF CHOICE = 3 (ffi CHOICE = 4 THEN AMP = 15: REM : H 
ALE AMPLITUDE (LESS IF SUMMATION-HAVE INCLUDED.) 

490 DEF FN PHYS(A) = 32 .+ SIN (PF + COUNT » BP) t AMP 

492 CEF FN EMOT(A) = 32 ♦ SIN (EF + CfflM t BE) I AMP 

494 DEF FNffiNT(A) = 32+ SIN (MF + COUNT S BM) S «P 

494 DEF FN SlflttA) = FH-NINV* FNffiNT(A)+ FN EMMA) - 

44 
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702 PRINT DBS (30): RED : 40 EHR/LDE 

705 PRINT 0 BIO-CYCLES FOR °>NA$(l)i* 8 ?NAt(2)» 8 : 8 : PRUT 

710 PRINT 8 (FOR 8 »)Bt(PH)J 8 » "»PYi° THROUGH 8 »HOt(PH *2-12 

* (P« > lOJW")" 

715 PRINT : PRINT "BIRTHRATE: 8 5BD$(1)J 8 , "5HB«BH)5 B 8 JDD5 8 , 0 
JBT 

717 IF CHOICE = 3 OR MICE = 4 THEN PRINT : PRINT '»)-) (91 
H NAVE BONN DOTTED) (-(«" 

724 PRINT m (31): REN : 44 OB/UNE 

722 FOR N = 1 TO 63:SPACEI = SPACES + 1 MASKS = DASH) ♦ 

NEXT : REN : STRINGS TO BRAN UPON FOR STUFFING P'Si E'S» H'S, ET 
C.» INTO! 

723 COUNT = 0 

724 CELEBRASHUNt = “HAPPY BIRTHDAY* 8 * NAKXl) ♦ 0 ! °:CEL = 
LEU (CELS) 

725 FOR CYCLE = 0 TO 2: REN : 3-HONTH PREBICTIQN LOOP. 

730 BEN = PH ♦ CYCLE - 12 I (PH ♦ CYCLE ) 12):)ID = DH1IAEN) 

735 FOR SLICE - 1 TO IS) 

740 PZ = FN PHYS(A):EZ = FN ENOT(A):lB = FN HNT(A):SUB = F 
N Stfif(A) 

745 IF SLICE = 1 THEN AS - BASHS 
750 IF SLICE ) 1 THEN At = SPACES 
755 AS = LEFT) (A$,PZ - 1) ♦ V * RIGHTO (A0.63 - PZ):AO = L 
EFTS (ASiEZ - 1) ♦ V ♦ RIGHTO (A0»63 - EZ):AO = LEFTS (AO>NZ 
- 1) ♦ T + RIGHTO (At, 63 - HZ) 

760 AO = LEFT! (At, 30) + STRO (SLICE) ♦ RIGHTO (A0>32 - LEX 
( STRO (SLICE))) 

765 IF CHOICE * 3 OR CHOICE = 4 THEN IF SUKZ ) 1 Aft SIMZ < 62 
THEN AO = LEFTO (ASiSUKZ - 1) ♦ B . B + RIGHTS (At, 62 - SUHZ) 
767 IF m = BH AND SLICE = BD THEN AO = CELt ♦ RIGHTO (A0>62 
-CEL) 

770 IF SLICE = 1 THEN L = LEX (NQtdfiENWL = L / 2:A0 = IfFT 
0 (At, 31 - L) ♦ inOdlEN) ♦ RIGHTO (A0>31 - L): REN : INSERT NO 
NTH NAME. 

775 PRINT AO 

782 MINT = COUNT ♦ 1: IF 9.ICE = lANBHHEN = 12TlffNY = PY* 
i: COSUB 505: REH : TRIGGER LEAP-YEAR RQUTIK FOR CONING YEAR. 

783 IF PEEK (37) ) 22 THEN HONE : REH : BY ERASING THE SCREEN 

* THE PRINTER GETS ITS BATA FASTER ! 


7B5 

IEXT SLICE 


790 

NEXT CYCLE 


885 

IF UNO = 1 THEN PRINT PRtlO): RETURN : REN 

: LEAVE. GRAPH 

890 

GOTO 610 


900 

PRINT PRftO) 


998 

END 


999 

RFH ttttttttttttttttttttttttt 

tt 1 


NTROMJCTIQN l D ISCUSSIONtt OF BIORHYTHB. tt 

(000 PRINT PR0(1); CHRO (14): FOR X = 1 TO 5: PRINT : IEXT : HI 
AB 11: PRINT "8I0RHYTHHS 8 : PRINT CHRO (15)! CHRO (30): PRINT 8 
BIORHYTHMS ARE THOUGHT TO AFFECT BE- HAVIOR. IT IS ASSURED THA 
T OUR PHYSICAL,™.* AND EHOTIONAL E&RGIES RISE AND" 

1010 PRINT "FALL IN RHYTHHIC CYCLES 123-DAY CYCLE FOR PHYSICA 
I, 33-BAY CYCLE FOR KENTAL," 

*320 PRINT "AND 28-DAY CYCLE FOR EHOTIONAL). 8 
2040 PRINT: PRINT 8 NtO THESE CYCLES CROSS A ZERO 'BASE- UN 
E', TIC FUNCTIONS CHANGE PHASE - BE- CONE UNSTABLE - AND THIS RE 
SUITS IN 8 

1050 PRINT “SO-CALLED CRITICAL BAYS." 

1060 PRINT.: PRINT 8 THESE 'CRITICAL DAYS' ARE, MXORDING 8 
(070 PRINT. -TO THE THEORY, OUR WEAKER AND HQRE VUL- NERABLE TIN 
ES. ACCIDENTS, CATCHING 8 

1080 PRINT "COLDS, AJffi BODILY HARK ARE KORE LIKELY ON PHYSICAL 
LY-CRinCAL DAYS. DEPRESSION, B S 


1090 PRINT “QUARRELS, AND FRUSTRATION ARE KORE LKE-LY ON EHOTI 
ONAU.Y-CRITICAL BAYS. SLOW-- 

1104 PRINT "NESS OF THE HIND, RESISTANCE TO NEU SIT-UATIONS, AN 
0 UNCLEAR THINKING ARE HOSE” 

11(0 PRINT “LIKELY ON KNIALLY-CRITICAL DAYS. 8 : PRINT PRKO) 

ms reh mwnmmtmmffl tt 

EXAHPLE OF CYCLE GRAPH t t (COARSE, ON SCREEN ) tt 
1117 COUNT = 0 

1120 HONE : PRINT 8 M PORTIONS OF THE CYCLES BELCH THE 'BAS 
ELINE' ARE THE ^GENERATIVE PERI0DS5THE PORTIONS ABOVE THE 'BASE 
LINE' ARE THE ACTIVE PERIODS (ENERGY STORED IS 8 
1130 PRINT "AVAILABLE FOR USE). 8 
1140 HTAB17 

H50 VTAB 8: PRINT -ACTIVE: 8 : VTAB 15: PRINT 8 


2160 VTAB 22: PRINT "(^GENERATIVE: 8 

1170 VTAB 18: PRINT "(N=HENTAL) 8 : PRINT 8 (P=PHYSICAL)": PRINT 8 

(EMOTIONAL) 8 

1180 FOR X = 0 TO 39 

1190 A = X / 36 t 2 t 3.1416 

1200 AP = A * 36 / -23 

1210 AE = A * 36 / 28 

1220 AH = A » 36 / 33 

1230 YP = 15 - SIN (AP) t 7 ♦ .5 

1240 HTAB X + l: VTAB YP: PRINT T 

1250 YE = 15.5- SIX (AE) t 7 

1260 HTAB X + is VTAB YE: PRINT "E 8 

1270 YH = 15.5- SIN (AH) *7 

1280 HTAB X + l: VTAB YH: PRINT T 

1290 VTAB 23: NEXT X 

GRAPHICS ROUTIffi FOR 0 SCANNING AND PRINTING tt OUT THE 
CRT. SCREEN, tt tttttttttttttttttttt 

ttttttttt 

1310 PRINT PRXir, m (30): REH : PRINTER V, AT 40 CHAR/U 
NE. 

1315 VTAB 1 

1320 FOR SECT = 0 TO 2: FOR LEVEL = 0 TO 7 
1330 FOR LOC = 0 TO 39 

1340 PRINT CHRt ( PEEK (1024 ♦ 40 t SECT ♦ LEVEL 1 128 ♦ LOC)) 
• 

, 

1350 COUNT = COUNT + 1: IF COUNT = 200 THEN PRINT :COUNT = 0: V 
TAB PEEK (37): REH : BY INSERTING A "PRINT 8 BEFORE 255 CHARACTE 
RS ARE PRINTED OUT, AN ODD "SKIP" IN PRINTING IS AVOIDED. 

1360 NEXT : NEXT : NEXT : PRINT 

END OF SCREEN SCAN. tt LEAVE PRINTER ON, FOR tt NEXT LIT 

Hi "TAG 8 . tt t tttt t t tt t t t ttttt ttt 

ttttt tttt 

1410 PRINT 8 THE THREE B1IKYQES ARE THOUGHT TO BEGIN TOGET 
HER, AT TIE KORENT OF BIRTH. 8 '» 

1420 PRINT "THUS, IF AN INDIVIDUAL'S BIRTHBATE IS KNOUN, TIE 
PARTICULAR STAGE OF EACH 8 

1430 PRINT "CYCLE AT ANY GIVEN DATE HAY IE CALCU- LATED. 8 : PR 
TXT : PRINT PRKO) 

2435 RETURN 
1440 END 

24000 DATA (END OF DATA) - 
25000 REH ttttttttttttttttttttttt tt 

HGUIE MITCHELL tt 7823 SH. S5TH PLACE tt GAINE5VI 
LIE, FLA > 326Ql t> . J1J LY, . iy80 tt 

32599 END 
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A Review of Library Disk «15 and EAMON # 1 
By Brian Dormer 


One of the best# although possibly most overlooked# benefits of 
belonging to a computer club is the availability of really good 
programs (at a reasonable price) through the clubs library. Our clubs 
library# though possibly not as large as some of the more cell 
established clubs# contains a good deal of fine# polished software. 
The object of the Same# then# is to make the club members aware of what 
is available from the library. That is# alas# a task which of late has 
been delegated to our illustrious librarian# who is already busy 
putting together new disks and copying old disks for distibution. It 
is thus no small wonder that our overworked librarian has requested 
help in reviewing some of our library disks. Though I am not by any 
stretch of the imagination a budding author# our librarians plead for 
assistance in reviewing some of the newer additions to the library have 
not gone unnoticed# and herein is my attempt to comply with that 
request. 


Rating Scale 


wwwww 

*KK* 

WWW 

ww 

w 


Superb 

Better than average 

Good 

OK 

Forget it. 


The first disk that we'll take a look at is »15 (GAMES VIII). 
This disk contains 12 programs# some of you will probably recognize one 
or two of them# but for the most part these are new programs* 


AIR-SEA is a lo-res animated game where the object is to either 
blast the airplanes or the ships (depending# of course# on whether you 
are air-force or navy). The more interesting* parts of this program are 
its imaginative graphics (the bombs splash when they hit the water) and 
sound effects# and the fact that it can be played as a two player game. 
This program should be on your list it you have kids# or if you happen 
to be a big kid yourself (aren't we all). 

Rating (www) 

DEBP-SPACE is the old favorite from Creative Computing. It seems 
to fare a little weak against some of the newer programs on this disk# 
but if you're into adventure or space games# this one's a classic and 
is well worth the price. 

Rating (www) 


DRAGON Well# if you're into looking at hi-res Pictures# don't 
miss the dragon. I Just can't help feeling I've seen him somewhere 
before (could have been in EANON). 

Rating (ww) 


FIZZBIN If you're a trekkie I don't have to tell you how to play. 
If you're not a trekkie# well get this disk and prepare yourself for 
the wildest# most complicated card game in the galaxy. A MUST for all 
loyal Star Trek fans and card sharks. 

Rating (wwww) 

GUIDED MISSILE This one's a goodie# as you try to hit the target 
by guiding the missile with the game paddels - Only it's written in 
ROM Applesoft and I only have the RAM version. I do have a modified 
version that works with RAM Applesoft# so if you get this disk and are 
in the same boat as me# let me know and I'll fixed you up. 

Rating (wwwww) 

LASER CANNON It may look easy to hit the flying saucers as they 
fly over# but# you could end up playing this one for hours. 
Interesting use of lo-res graphics. 

Rating (wwww) 

MADAME DUPRE is a rather sarcastic old fortune teller# she always 
insults you* Great if you like being insulted by your machine. 

Rating (ww) 

MADLIB is a computerized adaptation of the semi -famous party game. 
Really good for teaching parts of speech to little ones who hate 
english. 

Rating (www) 

ONE PLAYER FOOTBALL Has a somewhat interesting lo-res display# but 
it wears a little thin with age. If you're a football freak# who 
knows. 

Rating (www) 

SAVE THE WORLD One of the 'can't miss' games of the year. Simple 
enough for even the youngest gamer but# will keep everyone intereted 
for hours. You control the trajectory of a nuclear bomb with your game 
paddle and try to destroy 'IT'. IT's great# don't miss IT. 

NOTEs There may be a small error in your version# the corrections are 
belows 

line 10 should reads 

10 POKE -14302# Os GR s COLOR*? 

line 9040 should reads 

9040 PB1= PEEK (-14384): IF PB1> 127 THEN 10s GOTO 9040 
Rating (wwww) 

SPACE MAZE Here's another one that only runs in ROM Applesoft 
(I've also got a modified version of this to run on a RAH Applesoft 
machine). This one looks so easy at first# but Just try to pilot your 
ship through the space maze* It's so easy only a child can do it. 
Rating (wwwww) 

Well# that's all for disk «15# now let's take a look at some 
software from out west* 

EAM0N is the name of the fantasy role-playing system for the 
Apple# written by Donald Brown of Role-Playing Starwars fame. This 
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disk froa Denver Apple Pi is definitly one of the best investments of 
the yeflr* EAHON is on open ended adventure system # meanintf EAHON «i is 
only the first of (horefuly) many diffrent adventures (NOTE* EAHON #2 
is already available from the library)* The adventure on this disk is 
called The Beginners Cave# and is mritten specifically to Set the 
adventurer familar mith the method of play ins Adventure* The disk also 
contains a number of utilities for maintainins the EAHON system* If 
you don't have any other Same disks# do yourself and your Apple a 
favor and Set EAHON# you eon't be sorry* 

KOTBt It you have RAH Applesoft you'll have to make a modification to 
one of the prosrams* First you should copy the orisinal disk over to a 
blank disk# then delete all of the utilities and other unused files# 
put an Applesoft on the disk and make the foltomins modifications* 

THE WONDERFUL WORLD OF EAHON 
chanse line HO to reads 

110 HOME *DK$ « CHR$<4>* PRINT DK*9"BL0AD EAHON t PI C # A$4000 " s 
POKE -16304 #0tP0KE -162?7#0tPOKB -16302#0*P0KE -162?9#0 

And that's all there is to it*** 


Well# I hope that the precedins reviem has been of help to you* 
Both of these disk are sell north it at tnice the price* 

Happy Computins HI 


CRAE SOFTWARE REVIEW 

by H* S* Pilloff 

• • 

CRAE is the acronym for CO-RESIDENT APPLESOFT EDITOR which provides 
global editing capabilities for Applesoft programs* It is available 
from Highlands Computer Services in Renton? Washington for $19*95 on 
Disk* CRAE is loaded into memory by running EDIT* LOAD which sets the 
pointers such that when an Applesoft program is loaded? it locates in 
memory above CRAE* The editor is activated by entering an ampersand 
(&) command and a left bracket prompt indicates that CRAE is up* 

Entering RETURN will deactivate CRAE and restore the familiar 
Applesoft right bracket prompt* 

CRAE use single letter commands* 

A Append program on disk to one in memory 

C Change any string in program 

D Formatted hex dump 

F Find any string in program 

L Optimized list of program 

N Auto line numbering 

q Quote a range of line numbers from one area to another 

R Renumber 
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On receipt of this software I was surprised to find a stamped? 
self-addressed user evaluation form* I volunteered some comments and 
subsequently received a second disk with a new version CRAE 2 
together with a four page letter* (They sent the letter because they 
had been unable to reach me by phone* All this for $15! The price 
has since increased* ) Because in my opinion CRAE 2 is so much 
superior to CRAE 1? these comments apply to CRAE 2 even though this 
version is not expected to be available for several months* In 
addition to all the commands in CRAE 1 a number of new and very 
useful commands have been added* In particular / M / is a line 
modifying command which provides for line editing capabilites 
including insert/delete as well as I?M?J?K cursor control* Other new 
commands include: 

t precedes monitor commands 

i prints number of free bytes 

! XXXX decimal equivalents of hex 0-FFFF 

7. decimal length and address of last BLOAD program 

XXXXXX hex equivalent of decimal 0-65535 


I tend to write very long programs (a necessity - definitely not a 
virtue) and use extensively two utilities* Konzen's PLE and CRAE 2* 
They are to a considerable extent mutually complimentary (line 
oriented vs* global) in their features and I often go from one to 
the other* (The ideal utility would include the features of both*) 
This poses some difficulties as the two routines are to some extent 
mutually exclusive* With the PLE up? it is not altogether surprising 
that I have not been able to load CRAE* As a result? it is necessary 
to BRUN REMOVE PLE (available on PLE ver* 2) in order to run 
EDIT *LQAD and then activate CRAE* 

In summarizing my own experiences I have found CRAE to be an 
extremely useful utility* The documentation is good and the 
continued support of the vendor to improving this .product hfcve 
combined to produce a high quality offering* 



3 


Wo/hington Apple PI 
fnember/hlp Application 


Dues for membership in Washington Apple Pi are $12.00 per year. The dues year 
rips from January 1 to December 31. Members joining after February should pay at 
the rate of $1.00 per month. Both new members and renewing members are asked to 
fill in the following application as completely as possible. Information gained 
here will help the club serve you better. 

If you have any questions please call Qenevie Urban- (301 229-3458) or 
Bob Peck, Treasurer (301 468-2305). 


IfaanK nau 


NAME__ 

ADDRES S 

CITY, STATE, ZIP 

TELEPHONE NUMBERS: HOME ( ) WORK ( ) 

PLEASE LIST HARDWARE YOU OWN: APPLE II APPLE II PLUS. 48K 32K—24K 1 6K 

DISK II SERIAU__/PARALLEL__I /0 AI/0 RS-232 

OTHER :(e.g. MODEM, PRINTER) 


OCCUPATION 

I WOULD LIKE TO WRITE ARTICLES FOR THE NEWSLETTER (Y/N) 

MY AREAS OF INTEREST ARE: 

IF YOU WOULD LIKE TO ASSIST ON A COMMITTEE OR SPECIAL INTEREST GROUP, PLEASE 
SPECIFY 


I AUTHORIZE THE RELEASE OF MY NAME_, ADDRESS AND TELEPHONE. TO OTHER MEMBERS. 

(NOTE: Club policy prohibits releasing members’ names and addresses unless you 
release that information by cheoking the appropriate areas above.) 

PLEASE ENCLOSE PAYMENT WITH THIS APPLICATION. 

MAKE CHECK PAYABLE TO "WASHINGTON APPLE PI" 

MAIL TO: WASHINGTON APPLE PI Attn. Treasurer 

P0 BOX 34511 
WASHINGTON ^ DC 20034 



WASHINGTON APPLE PI 
MAIL ORDER FORM 


> • 


Washington Apple Pi now has a program library, and disks are available for 
purchase by anyone. The price to members is $5.00 per disk, and $8.00 to 
non-members. These disks are chock full of exceptional programs - the 
utilities are especially useful. The games are some of the best - not just 
simple and uninteresting ones. You may pick them up at any meeting or have 
them mailed for $2.00 per disk additional. They will come in a protective foam 
diskette mailer. 

Also available for purchase by members at a discount price is the new APPLE II 
REFERENCE MANUAL (replaces the Red Reference Manual). The price of this manual 
is $17.00. You may pick it up at a meeting or have it mailed to you at no 
extra charge. 


Amount 


1. New APPLE II REFERENCE MANUAL - $17.00 each 


2 . 


PROGRAM DISKETTES 

Members: $5.00 per disk picked up at meeting 

!>7.00 mailed to you... 

Non-members: $8.00 per disk picked up a meeting 
$10.00 mailed to you... 


Volume 1 — Utilities I 
Volume 2 — Utilities II 
Volume 3- -Games I 
Volume 4- -Games II 
Volume 5- -Games III 
Volume 6 --Games IV 
Volume 7 - -Games V 
Volume 8 — Utilities III 
Volume 9- -Educational I 
Volume 10-Math/Science 
Volume 11 -Graphics I 
Volume 12-Games VI 
Volume 13-Games VII 
Volume 14-LAC Utilities IV 
Volume 15-Games VIII 
Volume 16 -Utilities V 
Volume 17 -Graphics II 
Volume 18- Education II 
Volume 19 -Communications 
Volume 20 -Music 
Volume 21 -Apple Orchard 


0 Volume 181 — Eamon #1 
0 Volume 182 — Eamon #2 
0 (Both Disks Required 
0 To Play Game) 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


0 

0 


TOTAL ORDER = $ 

Check nere if you want these shipped 

NAME 

ADDRESS 

CITY, STATE, ZIP 

TELEPHONE : 

Membership No. (1st three digits after WAP on mailing label) 
Make ohecks payable to "Washington Apple Pi" 

Send order to: ?o S B^ g 34511 PPle P1 ‘ AT ™ : Librarian 

Washington, DC 20034 


